my $file = $ARGV[0];

@rr = split(/\\/, $file);

print "file $rr[0],$rr[1],$rr[2]\n";

open Input, "<$file" or die"cannot open $file\n";
open Output, ">..\\temp\\num$rr[2]" or die "cannot open ..\\temp\\num$rr[2]\n";
$number = 0;
$firstline = 1;
while(<Input>){
	chomp;
	@rs = split;
	
	if($firstline==1){
		$firstline = 0;
		next;
	}	
	print Output "$number $_\n";
	$number++;
}

close Input;
close Output;